home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8192 < prev    next >
Encoding:
Text File  |  1996-09-10  |  3.4 KB  |  277 lines
  1. %%BeginFile: lw8_basic-2.0
  2. %%Copyright: Copyright 1990-1996 Adobe Systems Incorporated and Apple Computer Incorporated. All Rights Reserved.
  3. /bd{bind def}bind def
  4. /xdf{exch def}bd
  5. /xs{exch store}bd
  6. /ld{load def}bd
  7. /Z{0 def}bd
  8. /T/true
  9. /F/false
  10. /:L/lineto
  11. /lw/setlinewidth
  12. /:M/moveto
  13. /rl/rlineto
  14. /rm/rmoveto
  15. /:C/curveto
  16. /:T/translate
  17. /:K/closepath
  18. /:mf/makefont
  19. /gS/gsave
  20. /gR/grestore
  21. /np/newpath
  22. 14{ld}repeat
  23. /framewidth -1 def
  24. /QDframwid -1 def
  25. /numframes Z
  26. /mTS matrix def
  27. /$m matrix def
  28. /av 84 def
  29. /por T def
  30. /normland F def
  31. /psb-nosave{}def
  32. /pse-nosave{}def
  33. /us Z
  34. /psb{/us save store}bd
  35. /pse{us restore}bd
  36. /level2
  37. /languagelevel where
  38. {
  39. pop languagelevel 2 ge
  40. }{
  41. F
  42. }ifelse
  43. def
  44. /odictstk Z
  45. /oopstk Z
  46. /fcl
  47. {
  48. count oopstk sub dup 0 gt
  49. {
  50. {pop}repeat
  51. }{
  52. pop
  53. }ifelse
  54. countdictstack odictstk sub dup 0 gt
  55. {
  56. {end}repeat
  57. }{
  58. pop
  59. }ifelse
  60. }bd
  61. /sfcl2
  62. {
  63. /odictstk countdictstack store
  64. count/oopstk xs
  65. }bd
  66. /efcl2
  67. {
  68. stopped{$error/newerror F put}if
  69. fcl
  70. }bd
  71. /noload Z
  72. /startnoload
  73. {
  74. {/noload save store}if
  75. }bd
  76. /endnoload
  77. {
  78. {noload restore}if
  79. }bd
  80. level2 startnoload
  81. /setjob
  82. {
  83. statusdict/jobname 3 -1 roll put
  84. }bd
  85. /setcopies
  86. {
  87. userdict/#copies 3 -1 roll put
  88. }bd
  89. /devg/DeviceGray def
  90. /devr/DeviceRGB def
  91. /devc/DeviceCMYK def
  92. /ststpgdev{}def
  93. /dopgdev{}def
  94. /stpgdev{}def
  95. /buf Z
  96. /didstop T def
  97. /sfcl
  98. {
  99. /didstop T store
  100. /odictstk countdictstack store
  101. count/oopstk xs
  102. currentfile cvx stopped
  103. {
  104. $error/newerror F put
  105. didstop
  106. {
  107. save/didstop xs
  108. /buf vmstatus exch sub exch pop dup 0 lt{pop 0}if
  109. dup 64000 gt{pop 64000}if string store
  110. {
  111. currentfile buf readline
  112. {
  113. (}efcl)eq{exit}if
  114. }{
  115. /UnexpectedEOF errordict/rangecheck get exec
  116. }ifelse
  117. }loop
  118. didstop restore
  119. }if
  120. }if
  121. fcl
  122. }bd
  123. /efcl
  124. {
  125. /didstop F store
  126. exec
  127. stop
  128. }bd
  129. level2 endnoload level2 not startnoload
  130. /setjob
  131. {
  132. 1 dict begin/JobName xdf currentdict end setuserparams
  133. }bd
  134. /setcopies
  135. {
  136. 1 dict begin/NumCopies xdf currentdict end setpagedevice
  137. }bd
  138. /devg[/DeviceGray]def
  139. /devr[/DeviceRGB]def
  140. /devc[/DeviceCMYK]def
  141. /setpagedevice where{pop/realstpgdev/setpagedevice ld}if
  142. /SC_topddict Z
  143. /SC_spdict Z
  144. /dopgdev
  145. {
  146. md/setpagedevice undef
  147. SC_topddict realstpgdev
  148. }bd
  149. /stpgdev
  150. {
  151. SC_topddict dup 3 -1 roll
  152. {
  153. SC_spdict 2 index known
  154. {
  155. SC_spdict 2 index get
  156. dup 3 -1 roll
  157. {
  158. put dup
  159. }forall
  160. pop put dup
  161. }{
  162. put dup
  163. }ifelse
  164. }forall
  165. pop pop
  166. }bd
  167. /ststpgdev
  168. {
  169. md/setpagedevice/stpgdev load put
  170. /SC_topddict 0 dict store
  171. /SC_spdict 3 dict begin
  172. /InputAttributes 0 dict def
  173. /Policies 0 dict def
  174. /OutputAttributes 0 dict def
  175. currentdict
  176. end
  177. store
  178. }def
  179. /sfcl/sfcl2 ld
  180. /efcl/efcl2 ld
  181. level2 not endnoload
  182. /pm Z
  183. /mT Z
  184. /sD Z
  185. /realshowpage Z
  186. /initializepage
  187. {
  188. mT $m currentmatrix mTS concatmatrix pop
  189. /pm save store mT concat
  190. }bd
  191. /endp
  192. {
  193. pm restore
  194. }bd
  195. /adjRect
  196. {
  197. dup 2 mul 6 2 roll
  198. 4 index sub exch 5 -1 roll sub exch
  199. 4 2 roll
  200. 4 index add exch 5 -1 roll add exch
  201. 4 2 roll
  202. }bd
  203. /frame1up
  204. {
  205. gS
  206. mTS setmatrix
  207. QDframwid lw
  208. /setstrokeadjust where{pop T setstrokeadjust}if
  209. clippath pathbbox
  210. 2 index sub exch
  211. 3 index sub exch
  212. currentlinewidth framewidth mul
  213. adjRect
  214. numframes dup 0 lt{pop 0}if
  215. {
  216. 4 copy
  217. rS
  218. currentlinewidth framewidth
  219. mul 4 mul
  220. adjRect
  221. }repeat
  222. pop pop pop pop
  223. gR
  224. }bd
  225. /$c devr def
  226. /rectclip where
  227. {
  228. pop/rC/rectclip ld
  229. }{
  230. /rC
  231. {
  232. np 4 2 roll
  233. :M
  234. 1 index 0 rl
  235. 0 exch rl
  236. neg 0 rl
  237. :K
  238. clip np
  239. }bd
  240. }ifelse
  241. /rectfill where
  242. {
  243. pop/rF/rectfill ld
  244. }{
  245. /rF
  246. {
  247. gS
  248. np
  249. 4 2 roll
  250. :M
  251. 1 index 0 rl
  252. 0 exch rl
  253. neg 0 rl
  254. fill
  255. gR
  256. }bd
  257. }ifelse
  258. /rectstroke where
  259. {
  260. pop/rS/rectstroke ld
  261. }{
  262. /rS
  263. {
  264. gS
  265. np
  266. 4 2 roll
  267. :M
  268. 1 index 0 rl
  269. 0 exch rl
  270. neg 0 rl
  271. :K
  272. stroke
  273. gR
  274. }bd
  275. }ifelse
  276. %%EndFile
  277.